home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aac.d64 / convert2.proc < prev    next >
Text File  |  2007-02-28  |  428b  |  19 lines
  1. 9010 PROC CONVERT(NUMBER,REF BASE#,REF RES$) CLOSED
  2. 9020 DIM STACK(80)
  3. 9030 SP:=1
  4. 9040 REPEAT 
  5. 9050 TEMP:=NUMBER MOD BASE#
  6. 9060 NUMBER:=NUMBER DIV BASE#
  7. 9070 STACK(SP):=TEMP
  8. 9080 SP:+1
  9. 9090 UNTIL NUMBER=0
  10. 9100 FOR COUNT:=SP-1 TO 1 STEP -1 DO
  11. 9110 DIGIT:=STACK(COUNT)
  12. 9120 IF DIGIT<10 THEN
  13. 9130 RES$:=RES$+CHR$(DIGIT+ORD("0"))
  14. 9140 ELSE 
  15. 9150 RES$:=RES$+CHR$(DIGIT-10+ORD("┴"))
  16. 9160 ENDIF 
  17. 9170 ENDFOR COUNT
  18. 9180 ENDPROC CONVERT
  19.